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1. 0 PROGRAM OVERVIEW 

File Commands, referred to as FILECOMS , is comprised of a series of file 
handling routines, along with Save Program, Add Binary, and Save Binary in its 
entirety. FILECOMS is called by the Editor whenever a Print Source, Add Binary, 
Save Program, or Save Binary is requested, or whenever an assembly is requested 
of a source file. For any of the above cases, FILECOMS uses the MC parameter 
table and the index to set up the required arguments. When handlinq files and 
setting up arguments, FILECOMS checks to see if the request is possible and/or 
legitimate. If a command cannot or will not be executed, FILECOMS displays a 
":iO". Once FILECOMS sets up arguments, control is turned over to the appropriate 
program . 

File Commands is on TBLKs 35^, 351, 352, and 353 and in MBLKs 0, 1, 2, and 
3 of segment 2 when in core. The Editor communicates with FILECOMS relative to 

the tag FCSA (FILECOMS Starting Address), To execute a Save Program, for 
example, the Editor reads in the first block of FILECOMS and executes a JMP FCSA+3. 
The contents of FCSA+3 are JMP SAVPRG. The FCSA table, v/hich must not be moved 
without the Editor's knowledge, has the following form: 



(4j2f2i2() FCSA, JMP SAVBIN /SAVE BINARY 

JMP ADDBIN 

JMP . 

JMP SAVPRG /SAVE PROGRAM 

JMP LIORAS /ASSEMBLER 

JMP PRNPRG /PRINT SOURCE 



At location RPLSTR is the "REPLACE?" table which contains the DIAL codes for the 

r.r.rasr, REPLACE? '\ The "PEPLACE?" table is used in conjunction with the Editor's 
'/rid pattern display tabic (A6) to display the phrase "REPLACE?". Because 
FILECOMS uses the file area extensively, an explanation of index structure is 
crucial to understanding the secrets of FILECOMS. 

The index is located at tape blocks 346 and 347; the LAP6-DIAL System 
•ro:pects it to be two blocks long. The index must be comprised of contiguous 
tape blocks and the first tape block must be of the form XX6 . An index tape 
olock of 352, for example, would not be compatible v/ith a number of LINCtape 
group instructions that are scattered throughout the system. The left half of 
the first word on tape block 346 must be the DIAL code for a slash (57) , in order 
to Identify the block as an index. The first 10 words of tape block 346 con- 
tain 5757 {//) and are never used for file name storage by the DIAL system; the 
remaining words on both tape blocks are used to store index information. Each 
file in the index takes up 10 words, so that a DIAL tape can hold a maximum of 
77 octal file names. Unfilled portions of the index contain 5757 in all 10 
v/ords. For any given 10 v/ord portion, the first four words are reserved for the 
file name. The DIAL code for the first character of the name is stored in the 
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lofL half of t\\o first v^ord; the second character of the name goes in the right 
half of the first v/ord , etc. The mfiximum number of characters in a name is eight. 
Unused half-words in a name = 77 (?). The name FILENAME would be stored in the 
following manner: / 

J2f611 FI 

14j2f5 LE 

16j2fl NA 

15i2f5 ME 

The name DIAL would be saved as: 



0411 DI 

0114 AL 

7777 (Not 

7777 Used) 



Question marks v;ithin a name are treated as ordinary characters. Leading question 
marks are illegal and may cause unpredictable results. Trailing question marks 
are ignored. 

If a file name refers to a source, the fifth word of the ten word sector holds 
the first TBLK of the source and the sixth word holds the length. If there is no 
source, then the fifth and sixth words are both equal to 5757. If a name refers 
to a binary file, then the seventh word contains the first TBLK of the binary 
and the eighth word contains its length. If there is no binary, then the 
seventh and eighth words are both equal to 5757. In words 5, 6, 1, and 10, the f 
lov7 order 9 bits are reserved for tape block and length; bit zero is used to 
indicate whether source or binary information is present; bits 1 and 2 are not 
used. 



2.0 SAVE PROGRAM AND FILECOMS 

When a user requests a Save Program, the Editor exits, reads four tape 
blocks of FILECOMS (350) into locations 4(2f0J2f-5777 , loads the last tape block 
used in the Working Area into the AC, and jumps to FCSA+3. Save Program first 
stores away the complement of the source length at location Fl, then checks for 
line number arguments, displaying "NO" if they have been requested. Next, Save 
Program reads the index (TBLKs 346, 347) into locations 300j2f-3777. At this 
point, Save Program checks the left half of the first word in the index for a 57; 
if there is no 57, Save Program fills locations 3000-3777 with 5757. This move 
is called making an index. Save Program then calls a subroutine called LOOKUP 
to check for a name match between the requested name - to be found in the MC 
parameter table at E6 + 2 to E6 4- 5 (2372-2376) - and the index. If there is no 
name match, Save Program searches the index for a blank entry (a 57 in the left 
half of the first word). If no blank entry is found, the index is full and Save 
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INDEX STRUCTURE 



TBLK 



346 



57 


57 


57 


5 7 


57 


57 


5 7 


57 


57 


57 


5 7 


57 


57 


57 


57 


57 


Xi 


X2 




Xu 


Xs 


Xf. 


X7 


Xq 




Y2 




Y., 






Z3 





Xi 


x^ 


X', 


x^ 


Xr 


Xfe 


X7 


Xe 


Yi 


Y2 


Y 0 


Y^ 


Zl 




z, 





INDEX IDENTIFIER (10 WDS ) 



NAME (4 WDS) 



SOURCE TBLK (1 WD) 

SOURCE LENGTH (1 WD) 

BINARY TBLK (1 WD) 

BINARY LENGTH (1 WD) 



TBLK 347 



UNUSED HALF WORDS IN A NAME = 77 (?) 

FOR NO SOURCE Y i=Y 2=y 3=Y^=57 (/) 
FOR NO BINARY Z i=Z2=Z 3=Zu=57 (/) 



IINFILLED PORTION OF THE INDEX 
§757 IN ALL WORDS 
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Program displays '^N0'^ If a blank entry is found, locations E6 + 2 to E6 + 5 
are placed into its first four words and the gap search coimences, if a name 
match is found. Save Program must determine whether or not the matched entry has 
an accompanying source (the match could be binary only). To determine source or 
omary match. Save Program checks bit 0 of the fifth word in the matched entry. 
If: the m.atch is binary only, the gap search com.mences. If a requested name 
Hatches a source, Save Program displays the phrase "REPLACE?" until a key is 
struck on the Teletype, If the key struck on the Teletype is not an "R", Save 
Program returns to the Editor; if an R is typed, 5757 is put into the fifth and 
sixth words of the matched entry to erase the starting TBLK and length information 
of the old source. Save Program then calls the gap search subroutines. 

Once the index has been properly tended to, Save Program must find room in 
the file area to store the source. There are 600 TBLKs on a DIAL tape that are 
available for storage. These 600 TBLKs are divided into two sections: 

1, The upper file area (TBLKs 47j2(-777) 

2. The lower file area (TBLKs i2f-267) 

:>vurco:i .-jro saved in the file area as close to the index as possible. 

The gap search subroutines first scan all upper file entries in the index 
to determine whore the gaps are in the upper file. A gap is any unused portion 
of the file area. If a file named ONE runs from TBLKs 4 7J3r"517 and another file 

named TVJO runs from TBLKs 550-600, then a 30 TBLK gap exists from TBLKs 52^™547, 
If there are no files stored in the upper file area, then there exists a 310 
TBLK gap from TBLKs 47i;3f-777, The gap search subroutines check words 5-10 of all 
inrlex entries to compute the file gaps. The best TBLK in the upper file area is 
47^^ because it is closest to the index. The gap search routines initially set 
the best TBLK at 470; then they start searching for gaps. If a gap is found 
that IS smaller than the length of the requested entry, the best TBLK is reset 
to one greater than the last TBLK of the current entry » For example, if tb.o 
best TBLK is set to 47j2f and the length of the recjuested entry is 20 TBLKs /jnd the 
ru^p search routines find a source entry (or binary, for that matter) start incj in 
'i'Bf/K 500 (word 5) that is fifty TBLKs long (word (>) ; i.e., the source in 
question resides in TBLKs 500-547 inclusive, then the gap is from TBLKs 47^-477 
(10 TBLKs). This is too small to accommodate an entry of 20 TBLKs, so the best 
TBLK is reset to 550, which is one more than the last TBLK (547) of the current 
entry. The gap search subroutines scan the index, resetting the best TBLK every 
time a gap that is too small is encountered. 

Once the upper file has been searched, the entire sequence is repeated for 

the lower file. When searching the lower file, the best TBLK is set to one less 
than the start of the current entry when an insufficiently long gap is 



encountered. Searching the upper and lower files in the manner described above 
really finds all those TBLKs that will not work. For example, suppose that the 
best TBLK in the lower file turned out to be 40; this would mean that there are 
no gaps between TBLKs 41-26 7 that are large enough to file the requested source. 

Once the best TBLKs for upper and lower file have been established by the 
gap search routines, Save Program must determine whether or not the requested 
source will fit in the file area* If the length of the requested source is 
greater than the difference between the lower bound of the lower file (TBLK 0) 
and the best TBLK of the lower file, and if it is also greater than the differen 
between the upper bound of the upper file (TBLK 777) and the best TBLK of the 
upper file, then the requested source is trigger than all gaps in the file area 
and it will not fit. For this ca^e. Save Program displays "NO". If the re- 
quested source v^ill fit in either the upper or lower file area. Save Program 
determines which of the two best TBLKs is closest to the index before initiating 
the actual save. 

After file area has been allocated by Save Program, the starting tape block 

of the requested source is stored in the fifth word of the entry and the source 
length is stored m the sixth word. Save Program then checks the keyboard. If 
a key has been struck, the request is inhibited and control is turned over to 
the Editor; if no key has been struck, th§ Save Program part of Save Program 
commences . 



Save Program transfers 16 (octal) TBLKs at a time from the working area to 
the file area until the entire source has been saved. The last transfer may be 
from 1 to 16 TBLKs, depending on the length of the source being saved. 



^ • ^ ^RI^T SOURCE AND FILECOHS 

Whenever a Print Source is requested^ FILECOMS must be called ahead of Print 
Source to set up arguments for Print Sourqe. The Editor executes this call by 
r.;.adinu TBLKs 350-35 3 of FILECOMS into locations 4000-5777 and doing a 
JMP FCSA-f5. FILECOMS first checks the left half of E6 + 2 (2373) in the MC 
para/netor fablo for a 77 (?). A 77 indicates that the Working Area is to be 
printed; for this case FILECOMS reads the TBLKs containing Print Source (363) and 
TTY (364) into locations 5000-5777, moves the source working area unit to E6 + 6 , 
and executes a JMP 1000. if the Print §ource is by file name, FILECOMS checks' 
to see If the requested unit has an index^ displaying "NO" if it does not. If 
the requested unit has an index, FILECOMS calls the routine LOOKUP to check for 
a name match. If there is no name match, FILECOMS displays "NO". If there is a 
name match, FILECOMS further checks to see if the name refers to binary only, 
and if so displays a "NO". If the name m^tch is legal, FILECOMS reads Print 
Source and TTY into locations 5000-5777, Retrieves the first TBLK of the source 
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from the index and puts it into AC. FILECOMS then calls Print Source by executin 
a JMP 1000. 

^ • ^ THE ASSEMBLER AND F ILKCOMS 

Whenever an assembly 153 requested of a source in the file area, FILECOMS 
r'iust be called to set up arguraents for the Assembler. The Editor executes this 
call by reading TBLKs 35P'-35.3 into locations 4000-S117 and doing a JMP FCSA + 4. 
The index routines are next called by FILECOMS and executed in exactly the same 
manner as if a Print Source had been requested, FILECOMS places the unit number 
at location UNITNO (4777), places the QL or LI word at location UNITN0™3 (4774), 
ana nivts the starting TBLK of the requested source in the AC » FILECOMS then re- 
calls the Editor to set up further arguments for the Assembler # read it in and 
start it up, 

^ ' ^ SAVE BINARY A W D FILECOMS 

Vshen a Save 13in^iry is requested, the Editor exits ^ loads four blocks of 
F'lLECOns into 4000-5717 ^ and jumps to FCSA, File Commands starting address. 
Save Binary reads the binary header block (57 in the binary working area) into 
5400-5777, 

E6, the MC parameter table, is examined to determine the starting mode and 
address. If none were specified (^SB FILENAME , U J ) ^ E6 contains zero« A 
Li::C"rr!Ode halt is stored in the header, and Save Binary jumps to 3B020 to find 
space for the file. If 8~mode was specified, E6 contains 4400 plus the PDP-8 
field in which the program is to start. E6+1 contains the 12-bit address 
within that field. The following instruction sequence is stored in the header: 

PDP 

CIF X /WHERE X IS j2f OR lj2f, DEPENDING ON 

/THE FIELD SPECIFIED 

JMP I 377 /START THE PROGRAM 

START /STARTING ADDRESS FROM E6+1 

it LliiCrnode was specified. E6 contains 0400 plus the starting PDP-8 field, and 
E6+1 contains the 12-bit address within the field. The following instruction 

sequence is built in the header: 

LIF X /X IS 0-7, DEPENDING ON THE SEGMENT 

/SPECIFIED. 

JMP START /START IS THE 10 LOW-ORDER BITS 

/FROM E6 4-1, 

The default starting addresses are field 0, location 200 for PDP-8 mode and 
scqment 2, location 20 for LINCmode, These are set up by the Editor before 
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calling FILECOMS, if a starting address v;as not explicitly requested. 

After building these instructions in the header, the starting address is 
checked for validity. It must be less than 2000yi (8K) , and in a block which 
contains assembled code. 

Save Binary next obtains the number of binary blocks (location 337 within 
the header) from the header. One is added to this number, to allow for the 
header, and the result complemented and stored at Fl» This is used as the 
length of the desired file during the search for file space. The two ^ s comple- 
ment of the number of binary blocks is calculated and stored at MBCNT, as a loop 
control during copying. Save Binary then follows the same sequence as Save 
Program to read the index, find space for the file, and. write the updated index. 
Next^ the I/O control blocks are initialized^ an auto-index register is set up 
for the block map in the header, and copying begins. 



Each vv^ord of the block map is tested for zero» If it is zero, the corres- 
ponding block in the working area is not used, so the input block number is 
incremented and the loop restarted. If the word is not zero, the corresponding 

rjlock is read, and MBCNT is tested to see whether it is the last binary block. 
If It IS the last, Save Binary computes the number of blocks currently in the 
-suffer, and goes to SB130 to write them.« If not the last block. Save Binary 
increments the input buffer address, and checks to see whether the buffers are 
full. If not, the input block number is incremented and the loop re-entered. 
If the buffers are full, or the last block has been read, HDRSW is tested to 
determine v/hether the header block has been written. If not, it is written 
at this time, and the switch is set» Then the buffers are v/ritten, and MBCMT 
is tested to check for completion. If there is more to go, the I/O control 
blocks are reinitialized and the loop is re-entered. Otherwise, the Editor is 
called by jumping to 7777 in field 1. 

6.0 ADD _B1N/^RY AND FIL ECO MS 

V-^ h e n A d d B i n a r y i s r e q u est e d , t h e E d j. t o r exi t s and. loads blocks 3 .5 0 - 3 5 3 
into locations 40j2f0-5777. Tt then jumps to FCSA+1. Add Binary reads the index 
of- tlio requested file, and finds the binary requested, disr)laying "NO" if 
unsuccessful . 

Th.e he^ider and up to 15 blocks of the binary file are read, as well as the 
lieader of the binary working area. 
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The header from the file is scanned by subroutine SCANHD to determine the 
memory address for which the first block was assembled. If a relocation (other 
than zero) v/as specified, it is stored as the new memory address for the program. 

The binary data from the file is scanned, and non-zero words moved to the 
buffer for the binary working area. 

When the end of an input block is reached, a running block count (MBLKS) is 
incremented and checked for end of file. If the end has been reached, the final 
binary working area block is written, the binary header is written, and control 
returns to the Editor, 



If there remains more binary to add, the header is scanned so that the 
relocation can be adjusted for skipped blocks and, if the end of the buffer has 
been reached, the buffer is refilled with up to 15 blocks from the file. 

V/hen a non-zero v/ord is found which goes into another block of the binary 
working area (other than the block currently in core) , the old block is written, 
the header updates, and, if the header indicates that the new block is used, the 
nev7 block is read in. If there is nothing in the new block, the buffer is 
cleared. 

7.0 FLOW DIAGPJ\MS (Attached) 



8 . 0 PROGRAM LISTING (Attached) 



9 . 0 MEMORY MAP 



Used 

for 
LING 
tape 
trans- 
fers 



Used 

for 

LING 

tape 
trans- 
fers 





NOT 


USED 


Filecoms 


Not Used 


Filecoms 


(LING Tape S.R.) 




NOT 


USED 


MC Parameter Table 






DSC Grid Table 








NOT 


USED 



7777 



6( 

5000 
4400 
4000 

2400 
2000 
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FILECOMS SYMBOL TABLE 



ADVIND - 

AQTO 
A6 

BFAD 
BFLN 

BUFFER - 
BUFLEIJ ™ 
BUMP 

BWA 

CHKIND - 
COMPBN - 



CRl 

DATS EG 

DIALU 

DRSTRT 



The first core location of the subroutine that ad~ 
vances the index pointer (BETA 2) by 10 words at a 
time and checks for end of index* 

8-mode auto-index register (10) used by SB. 

The first core location of the Editor's DSC grid 

table. 

The location containing buffer address, shifted 
right 8. 

The location containing the length of buffer, in 
blocks . 

The buffer address, shifted right 8. 

The length of the buffer, in blocks. 

The location containing the increment for index 
pointer to address desired (source or binary) 
pointers . 

The pseudo-unit for binary working area. 

The first core location of the subroutine that 
reads in and checks for the validity of an index. 

The first core location of the subroutine that 
compares TBLKs in the index with the prospective 
best TBLK and sets the best TBLK during the gap 

search for Sax^e Proqram. 



The symbolic code 



carriage return; it is equal 



to 4 300 and is used in conjunction vsxth. the SHD I 

instruction . 

The data segment used throughout FILECOMS. It 
contains A6 , E6 , and Index. 

The pseudo-unit that contains the resident DIAL 
system (100). 

The address of DIAL bootstrap routine. 

The start of routine to call DIAL bootstrap. 



ENTER 
E6 

FCSA 



The first core location of the subroutine that 
searches for a blank slot in the index during a 

Save Program^ 

The first core location of the MC parameter table, 

The first core location of the FILECOMS starting 
address table. 



FILE 



The first TBLK in the upper file area above the index 
that is available for file storage. 



FINDSP - The first core location of the subroutine that sets 
up arguments for upper and lower file during a gap 
search. 

FREE - The first TBLK+1 in the lower file area below the 
index that is available for file storage (also the 
first TBLK of the free area on the DIAL tape) . 

Fl - The core location that holds the one's complement 

of the length of a source during a Save Program, 
or one * s complement of the length of the binary 
(including header) during a Save Binary. 

GAPSR " The first core location of the main gap search sub- 
routine which is called during a Save Program and 
Save Binary. 

GETBN - The first core location in the subroutine that sets 
up the starting TBLK and source length during a 
gap search. 

GETPS " The starting point of code which reads in and calls 
Print Source. 

Gl - The first core location of the subroutine that 

determines the nearest of the two best TBLKs in the 
upper and lower file area; it is called during a 

Save Program. 

HDRBLK - The TBLK of binary header, relative to binary working 
area. 

HDRIO - The control block for reading and writing header. 

HDRSW - The switch is 7777 if the header has not been written; 
J2f after writing. 

HEADER - The core location in the current segment which 
contains the header, 

HI8FLD - The field containing I/O routines and bootstrap. 

HI - The first core location of the subroutine that is 

called during a Save Program to determine if the 
best TBLKs will accommodate the length of the re- 
quested source, 

INDKX - The core location of the index (3J2fj2(0). 

INFIL - The control block used in reading files to be copied. 

KBDOPR - The core location in the Editor relative to which 
FILECOMS effects its return to the Editor after an 
assembly by file name has been requested. 

KBDSEG - The segment containing KBDOPR. 

K2 - A tag in the subroutine REPLAC; tests for response 

from user. 
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The first core location of the main subroutine 
that is called by FILECOMS during an assembly 
by file name. 

The first core location of the subroutine that 
searches the index for a name match. 

The field in which FILECOMS resides. 

The first core location of the subroutine that 
makes an index. 

The core location in the current segment contain- 
ing the block map from header. 

The location containing minus block count: two's 
complement of nximber of blocks to read from 
woirking area. 

The location containing the minus buffer address, 
shifted right 8. 

The location containing minus (buffer end +1)^ 
shifted right 8. 

The control block for outpxit file during copies. 

The location of the routine for setting up PDP-8 

mode start in Save Binary. 

The first core location of the main subroutine 
that is called by FILECOMS during a Print Source. 

The first TBLK of Print Source (relative to DIAL) . 

The entry point of Print Source main code. 

The control block for reading Print Source. 

The routine which sets up for printing the source 
working area. 

Constant )2fj2()2fl. 

Constant j30f^2. 

The page jS location pointing to Read routine. 

The first core location of the subroutine that 
displays the phrase "REPLACE?" on the scope. 

The first core location of the replace table. 

The first core location of the subroutine that 
Writes out the index. 

The first location of Save Binary routine. 

The first location of Save Program routine. 

The first core location of the subroutine that 
displays the word "NO" on the scope. 
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SBi2fl^ 
SBi2f2j3 

SBllj2f 
SB12^ 
SB13J? 

SBl6j2f 
SETFLD 

SP02j2f 

SPlJ2fj3f 
SPllj2f 
SPl 0 

SRORBN 
SWA 

SWITCH 

UNITNO 
USENO 

WA 

v>/rith; 

XBLK 

XIO 

ZERO 



0 




ITags in Save Binary 




The location of LIF instruction inserted into 
the header. 



Tags in Save Program 



The first core location of the subroutine that 
determines whether a name match is source or binary. 

The pseudo-unit that holds the source working area. 

~ A core location that is used by the gap search 
subroutines in conjunction with the upper and 
lower file area. 

- The core location that holds the unit number for 
assembly by name, 

- The core location containing the count of binary 

blocks used, 

- The first TBLK of the Working Area. 

The page 0 location pointing to Write routine. 

- The TBLK containing the index. 

" The control block for reading and writing index. 
Constant zero. 
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c 



SWirCH TO POP 
JUMP TO DIAL 
RESTART BOOTSTRAP 



c 

[Z 



1HS:.RE AN INDEX 



RTN JMF*-f 
BETA 1 



SET prR ro 

START OF INDEX 



SET PTR 
TO START OF 
MC PARAMETER 
TABLE 





XSK 1 1 
JMP 1 



14 



RTN JMP -BtTAlO 











•^tT PTH rO VIARl Of- 



- FILfc (TBLK 470) 

- BtTA6 



SET SWITCH FOR 
UPPER FILE 




IKA^'>^■!,.l^ K(.oui..'i(i..D 

1 iMAl V) ilJUtX 



/'.I'll 



Q GAPSR ^ 



BEST TBLK 
FILE FROM 
BETA7 


FOR UPPER 
GAPSR - 






SLT 3vV! 

LOvVcH 


rCH FOR 


r 


FK1.L (IB 
liJ:TA6 


K 270) 



i 




HlVr TBI 
lOV/ER r 
GAPik - 


K FOR 

FROM 
BETA6 



J 



DISPLAY 
"REPLACE ?> ' 



NO^ KEY 

STRUCK 





PUT 5757 iN 
FIFTH AND 
SIXTH WORDSOF 
INDEX ENTRY 
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c 



J 



R TN JMP 


-BETA 1 j 


_J 


1 '.tT PTR TO 
iNULX 


START OF 




ADVANCt INDE.X PTR 
TO ^t'/ORU 5 OF INDEX 








RTN JMP (N 
LOC 0 






STARTING TBLK 
FROM INDEX 

BETA It 








Pending tblk + u 

FROM INDEX 
I BETA 12 
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c 







BLST lOWER FILE 
rSLK-AC 






L 1 




1 l.tMGfH 






c 



SfAkTING T8LK 
- INDEX ENTRY 




J 







ADVANCE INDEX 

PTR (BETA 2 ) 
TO NEXT ENTRY 
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READ PS 






'ilARI BLOCK TO AC 1 







c 




UNIT NUM - UNIT NO 
QL OR LI WD •* 
UNIT NO ■■ 3 



^AYNO^ 



J MP BACK TO EDITOR 



]9 



YES 



IS 

BEST TBLK 
(BETA6) FURTHER 
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